به روش زیر عمل کنید

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

بعد از معرفی تابع بالادستور زیر رادر یک دکمه بنویسید

Dim A as Long
Private Sub Command1_Click()
     A = timeGetTime
     Text1.Text = A
End Sub

موفق باشید

API تغییر برجسب درایو

این ای پی ای نام برچسب داریو شما را تغییر می دهد

برای این منظور دستور زیر را در یک ماژول بنویسد

Public Declare Function SetVolumeLabelA  Lib "kernel32.dll" (ByVal lpRootName  As String,
ByVal lpVolumeName As String) As Long

 : lpRootName مسیر پوشه:مثل درایو :\C

VolumeNameنام برچسب "ویژالبیسیک"

بعد دستور زیر را در یک دکمه یا فرم لود بنویسید

Dim A As Long
     Private Sub Commad1_Click()
     A = SetVolumeLabelA("C:\", "VisualBasic")
End Sub

موفق باشید

منتظر API بعدی باشید

امروز کد یه دفتر چه تلفن خوب با امکانات خوب گذاشتم که لذتش رو ببرین

نظر هم بدین ممنون

ددانلود کد سورس